home *** CD-ROM | disk | FTP | other *** search
/ Killer Drive 64 7 / Killer-Drive_64_07_19xx_-_de_Side_B.d64 / heisse luft (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  20KB  |  600 lines
  1. 10 v=53248:si=54272:poke53280,0:poke53281,0:poke1054,1:pokev+21,0
  2. 20 dim szene(28),t(40),in(50),berg(4,8)
  3. 30 deffna(v)=int((peek(v+4)-10)/8)+40*int((peek(v+5)-40)/8)+49152
  4. 50 pokesi+24,31
  5. 100 gosub 50000
  6. 110 gosub 60000
  7. 120 poke 1040,3
  8. 130 poke1054,1
  9. 990 rem -----------
  10. 995 rem startbereit
  11. 996 rem -----------
  12. 1000 pokev+17,peek(v+17)and(255-16)
  13. 1010 gosub40100:gosub40000:gosub3000
  14. 1012 ifbz=1thenkf=1
  15. 1015 fora=1to300:next:pokev+17,peek(v+17)or16:sys4096*8
  16. 1016 ifbz<>1andkf=0then1030
  17. 1017 print"      alle systeme startklar !  ";
  18. 1018 print"  \z[146]:xv[146]";
  19. 1020 if(peek(56320)and16)<>0then1020
  20. 1023 ifbz=1thenpoke1054,0
  21. 1025 ifpeek(50170)=43thenpoke50170,28
  22. 1030 gosub40100:poke158,1:poke254,1:poke1027,0:poke148,1
  23. 1040 ba$="":ifba<>0thenfora=1toba:ba$=ba$+"n[146]":next
  24. 1050 print"                                       "
  25. 1090 rem -----------
  26. 1095 rem hauptabrage
  27. 1096 rem -----------
  28. 1100 print"gas:abcdefghi[146]  s[146]"sa"[157]   n[146]"ba"[157] [145]"
  29. 1101 print"t[146] \z[146]:xv[146]"
  30. 1102 a1=peek(56320):poke1023,gas
  31. 1103 if(((a1and16)=0)and(gas>ff))thengas=gas-ff
  32. 1104 if(((a1and4)=0)or((a1and8)=0))and(gas>ff)thengas=gas-(ff/2)
  33. 1105 ifpeek(1054)=1then8000
  34. 1106 if(peek(56320)and1)=0then1300
  35. 1107 ifint(rnd(ti)*(zu+f))=0then1600
  36. 1120 ifpeek(1027)<>0then1800
  37. 1125 ifpeek(1026)<>0then1500
  38. 1130 if(peek(56320)and2)=0then1200
  39. 1140 ifpeek(1028)<>0then2000
  40. 1145 kf=0
  41. 1160 goto1100
  42. 1195 rem -------------
  43. 1196 rem sack abwerfen
  44. 1197 rem -------------
  45. 1200 ifsa=0then1100
  46. 1205 ifpeek(166)<>0then1100
  47. 1210 poke166,200:poke1015,1:poke1021,10
  48. 1220 sa=sa-1:goto1100
  49. 1295 rem -----------
  50. 1296 rem pause modus
  51. 1297 rem -----------
  52. 1300 poke1040,2
  53. 1305 poke1038,1
  54. 1310 geta$:ifa$<>""then1315
  55. 1311 if(peek(56320)and16)<>0then1310
  56. 1315 poke1038,0
  57. 1320 poke1040,3:kf=1:gosub3000:poke158,1:poke254,1:poke1027,0:goto1100
  58. 1495 rem ---------------
  59. 1496 rem ausserhalb bild
  60. 1497 rem ---------------
  61. 1500 iffb=1then1505
  62. 1505 on peek(1026) goto 1510,1520,1530,1540
  63. 1510 goto1130
  64. 1520 goto1130
  65. 1530 bz=bz+1:x=65:y=7:goto1550
  66. 1540 bz=bz-1:x=26:y=0:goto1550
  67. 1550 poke1040,2:gosub3000
  68. 1555 poke158,0:pokev,x:pokev+2,x:pokev+4,x:poke158,1
  69. 1560 poke1026,0:poke1040,3:poke1027,0:ify=0thenpokev+16,peek(v+16)and248:goto1590
  70. 1570 pokev+16,peek(v+16)or7
  71. 1590 poke254,1:poke158,1:pokev+17,peek(v+17)or16:sys4096*8:pokev+30,0:poke1027,0
  72. 1591 goto1100
  73. 1595 rem ------------
  74. 1596 rem blitz+donner
  75. 1597 rem ------------
  76. 1600 ifoy<=65then1120
  77. 1605 if(peek(v+16)and32)=1andpeek(v+10)>50then1620
  78. 1610 ifzu=20thenpokev+21,peek(v+21)or32:poke1029,1:zu=4:f=2:goto1120
  79. 1620 ifzu=4thenpokev+21,peek(v+21)and223:poke1030,1:zu=20:f=fz:goto1120
  80. 1795 rem ---------
  81. 1796 rem kollision
  82. 1797 rem ---------
  83. 1800 rem
  84. 1820 pokesi+15,255:pokesi+19,0:pokesi+20,251:pokesi+23,0:pokesi+11,0
  85. 1830 pokesi+18,129:pokesi+18,128
  86. 1850 poke147,0:poke248,1:poke247,1:poke252,uy-1
  87. 1860 ifpeek(165)=1thenpoke165,0:goto1880
  88. 1870 poke165,1
  89. 1880 ifpeek(251)=1thenpoke251,0
  90. 1890 poke50168,44:poke50169,17
  91. 1895 fora=1to20:next
  92. 1900 ifpeek(v+1)>200then1950
  93. 1910 poke50168,45:poke50169,46
  94. 1915 fora=1to20:next
  95. 1920 ifpeek(v+1)>200then1950
  96. 1930 poke50168,47:poke50169,46
  97. 1935 fora=1to20:next
  98. 1940 ifpeek(v+1)<200then1940
  99. 1950 ifgas<35thengas=35
  100. 1951 ifsa<5thensa=5
  101. 1952 ba=ba-1:poke158,0:poke254,0:ifba=-1then9000
  102. 1953 ifbz=1then1000
  103. 1955 pokev+17,peek(v+17)and(255-16)
  104. 1956 fora=1to300:next:pokev+17,peek(v+17)or16:sys4096*8
  105. 1957 pokesi+24,31
  106. 1970 ifxs=0then1975
  107. 1971 ifxs>255thenxs=xs-255:pokev+16,peek(v+16)or7:goto1973
  108. 1972 pokev+16,peek(v+16)and248
  109. 1973 pokev,xs:pokev+2,xs:pokev+4,xs
  110. 1975 pokev+1,34:poke50168,16:poke50169,17:a=0
  111. 1980 pokev+1,peek(v+1)+1:pokev+3,peek(v+1):pokev+5,peek(v+1)+21:poke1027,0
  112. 1982 if peek(v+1)>180thenpoke(v+1),30:goto1980
  113. 1985 ifpeek(1027)>2then1980
  114. 1986 a=a+1:ifa<16then1980
  115. 1990 gosub40100:gosub40000
  116. 1991 goto1017
  117. 1995 rem --------------------
  118. 1996 rem stuetzpunkt erreicht
  119. 1997 rem --------------------
  120. 2000 ifkf=1then1100
  121. 2005 kf=1:poke148,0
  122. 2007 if(bild=1andpeek(182)=1)then6000
  123. 2010 poke254,0:poke158,0:poke50170,43:d1=int(rnd(ti)*3)+1
  124. 2015 d2=int(rnd(ti)*3)+4:ifd1=d2then2015
  125. 2020 gosub4000:vp=peek(v+21)
  126. 2025 if(peek(v+1)>70)and(peek(v+1)<170)thenpokev+21,peek(v+21)and248
  127. 2030 print"[149] kkkkkkkkkkkkkkkkkkkkkk [146]"
  128. 2035 c=10:ifbild<>23andbild<>1thenc=8
  129. 2040 fora=1toc
  130. 2050 print"[149]l[146] ";t$(a);" [149]l[146]"
  131. 2060 nexta
  132. 2070 print"[149] kkkkkkkkkkkkkkkkkkkkkk [146]"
  133. 2075 ifbild=23orbild=1then2250
  134. 2080 bs=49441:hw=1:gosub62200:le=le-1
  135. 2090 a=d1:ifwa=2thena=d2
  136. 2095 ifd1=0then2200
  137. 2100 on(a)goto2110,2120,2130,2140,2150,2160
  138. 2110 sa=sa+3:goto2200
  139. 2120 sa=sa+5:goto2200
  140. 2130 sa=sa+10:goto2200
  141. 2140 gas=gas+20:goto2200
  142. 2150 gas=gas+40:goto2200
  143. 2160 ba=ba+1:goto2200
  144. 2200 in(bz)=0:ifgas>79thengas=79
  145. 2210 gosub3000:pokev+21,vp:gosub40000
  146. 2220 pokev+17,peek(v+17)or16:sys4096*8:goto1017
  147. 2250 if(peek(56320)and16)<>0then2250
  148. 2260 goto2210
  149. 2990 rem -------------
  150. 2995 rem bild erzeugen
  151. 2996 rem -------------
  152. 3000 poke254,0:poke158,0:pokev+17,peek(v+17)and(255-16):poke1040,2
  153. 3001 ifkf=1then3007
  154. 3002 pokev+21,0:xs=0
  155. 3003 poke1034,int(rnd(ti)*30)+3+fw:poke1035,int(rnd(ti)*7)+fw
  156. 3004 poke1036,int(rnd(ti)*7)+fw
  157. 3007 iffb=0thenbild=szene(bz)
  158. 3009 if bild>12 then3020
  159. 3010 on bild goto 3100,3110,3120,3130,3140,3150,3160,3170,3180,3190,3200,3210
  160. 3020 if bild>23 then3040
  161. 3030 on (bild-12) goto 3220,3230,3240,3250,3260,3270,3280,3290,3300,3310,3320
  162. 3040 if bild>34 then3060
  163. 3050 on (bild-23) goto 3330,3340,3350,3360,3370,3380,3390,3400,3410,3420,3430
  164. 3060 if bild>45 then3080
  165. 3070 on (bild-34)goto3435,3440,3445,3450,3455,3460,3465,3470,3475,3480,3485
  166. 3080 on (bild-45)goto3490,3495                                              
  167. 3100 l=0  :h=160:wi=1 :oy=0  :goto3500
  168. 3110 l=17 :h=161:wi=2 :oy=70 :goto3500
  169. 3120 l=185:h=161:wi=2 :oy=140:goto3500
  170. 3130 l=45 :h=162:wi=3 :oy=60 :goto3500
  171. 3140 l=6  :h=163:wi=4 :oy=150:goto3500
  172. 3150 l=91 :h=163:wi=4 :oy=130:goto3500
  173. 3160 l=154:h=163:wi=4 :oy=150:goto3500
  174. 3170 l=15 :h=164:wi=5 :oy=60 :goto3500
  175. 3180 l=204:h=164:wi=4 :oy=80 :goto3500
  176. 3190 l=63 :h=165:wi=6 :oy=50 :goto3500
  177. 3200 l=44 :h=166:wi=7 :oy=50:goto3500
  178. 3210 l=111:h=167:wi=6 :oy=60 :goto3500
  179. 3220 l=245:h=167:wi=4 :oy=50 :goto3500
  180. 3230 l=154:h=168:wi=8 :oy=60 :goto3500
  181. 3240 l=125:h=170:wi=9 :oy=50 :goto3500
  182. 3250 l=207:h=169:wi=11:oy=100:goto3500
  183. 3260 l=18 :h=171:wi=3 :oy=60 :goto3500
  184. 3270 l=196:h=171:wi=4 :oy=180:goto3500
  185. 3280 l=13 :h=172:wi=10:oy=180:goto3500
  186. 3290 l=99 :h=172:wi=10:oy=180:goto3500
  187. 3300 l=196:h=172:wi=12:oy=140:goto3500
  188. 3310 l=248:h=172:wi=6 :oy=60 :goto3500
  189. 3320 l=2  :h=174:wi=8 :oy=0  :xs=250:goto3500
  190. 3330 l=24 :h=175:wi=8 :oy=180:goto3500
  191. 3500 poke168,0:poke169,216:poke149,0:poke150,192:poke170,l:poke171,h:sys832
  192. 3505 ifin(bz)=0thenpoke1041,1
  193. 3510 if wi>12then3530
  194. 3520 on wi gosub 3600,3610,3620,3630,3640,3650,3660,3670,3680,3690,3700,3710
  195. 3525 goto3540
  196. 3530 on (wi-12) gosub 3720,3730,3740,3750,3760,3770,3780
  197. 3540 ifkf=1then3570
  198. 3550 ifoy<=65thenpokev+9,int(rnd(ti)*(oy-40))+40:goto3560
  199. 3551 ifoy<=110thenpokev+13,int(rnd(ti)*20)+40
  200. 3552 ifoy<=110thenpokev+9,int(rnd(ti)*30)+80:goto3560
  201. 3555 pokev+9,int(rnd(ti)*(oy-110))+110
  202. 3556 pokev+13,int(rnd(ti)*20)+40
  203. 3557 pokev+15,int(rnd(ti)*30)+80
  204. 3560 pokev+11,peek(v+9)+16:pokev+8,150:pokev+10,150:pokev+12,150:pokev+14,150
  205. 3561 pokev+16,peek(v+16)and15
  206. 3565 ifint(rnd(ti)*3)=0thenpokev+45,2:poke50174,42:pokev+29,16:goto3567
  207. 3566 pokev+45,15:poke50174,40:pokev+29,80
  208. 3567 ifint(rnd(ti)*3)<>0then3569
  209. 3568 pokev+46,15:poke50175,42:pokev+29,peek(v+29)and127:goto3570
  210. 3569 pokev+46,1:poke50175,40:pokev+29,peek(v+29)or128
  211. 3570 ifoy=0thenpokev+21,15:goto3590
  212. 3575 ifoy<=65thenpokev+21,31:goto3590
  213. 3576 ifoy<=110thenpokev+21,95:goto3590
  214. 3580 pokev+21,223
  215. 3590 pokev+17,peek(v+17)or16:sys4096*8:pokev+31,0:poke1027,0:poke1040,4:return
  216. 3600 poke977,100:poke978,1:poke979,10*wf:poke980,180:poke981,2:poke982,10*wf
  217. 3601 poke983,250:poke984,0:poke985,5*wf:poke986,0:return
  218. 3610 poke977,100:poke978,1:poke979,5*wf:poke980,155:poke981,2:poke982,10*wf
  219. 3611 poke983,250:poke984,0:poke985,5*wf:poke986,0:return
  220. 3620 poke977,80:poke978,1:poke979,10*wf:poke980,115:poke981,2:poke982,10*wf
  221. 3621 poke983,250:poke984,1:poke985,15*wf:poke986,0:return
  222. 3630 poke977,100:poke978,1:poke979,12*wf:poke980,155:poke981,2:poke982,5*wf
  223. 3631 poke983,250:poke984,1:poke985,5*wf:poke986,0:return
  224. 3640 poke977,60:poke978,1:poke979,10*wf:poke980,160:poke981,2:poke982,15*wf
  225. 3641 poke983,250:poke984,1:poke985,15*wf:poke986,0:return
  226. 3650 poke977,160:poke978,1:poke979,8*wf:poke980,250:poke981,2:poke982,15*wf
  227. 3651 poke983,0:return
  228. 3660 poke977,130:poke978,1:poke979,10*wf:poke980,250:poke981,2:poke982,10*wf
  229. 3661 poke983,0:return
  230. 3670 poke977,60:poke978,1:poke979,5*wf:poke980,140:poke981,0:poke982,5*wf
  231. 3671 poke983,160:poke984,2:poke985,10*wf:poke986,250:poke987,1:poke988,15*wf
  232. 3672 poke989,0:return
  233. 3680 poke977,90:poke978,1:poke979,5*wf:poke980,250:poke981,2:poke982,15*wf
  234. 3681 poke983,0:return
  235. 3690 poke977,120:poke978,1:poke979,5*wf:poke983,250:poke984,1:poke985,15*wf
  236. 3691 poke980,160:poke981,2:poke982,10*wf:poke986,0:return
  237. 3700 poke977,80:poke978,1:poke979,5*wf:poke980,130:poke981,2:poke982,10*wf
  238. 3701 poke983,250:poke984,0:poke985,5*wf:poke986,0:return
  239. 3710 poke977,100:poke978,1:poke979,5*wf:poke980,170:poke981,2:poke982,10*wf
  240. 3711 poke983,250:poke984,1:poke985,15*wf:poke986,0:return
  241. 3990 rem ----------------------
  242. 3995 rem lagerinhalt decodieren
  243. 3996 rem ----------------------
  244. 4000 rem
  245. 4050 t$(1)="                    ":t$(3)=t$(1):t$(5)=t$(1):t$(6)=t$(1)
  246. 4060 t$(8)=t$(1)
  247. 4070 t$(2)="  .."+di$(d1):t$(4)="  .."+di$(d2):t$(7)="was willst du ?     "
  248. 4080 t$(8)=t$(1):t$(9)="                    ":t$(10)=t$(1)
  249. 4100 ifbild=1then4300
  250. 4110 ifbild=23then4200
  251. 4120 return
  252. 4200 ifle>9thena$=str$(le)
  253. 4202 ifle<10thena$=" 0"+right$(str$(le),1)
  254. 4205 t$(2)="im basislager bekom-"
  255. 4210 t$(4)="mst du einen motor  "
  256. 4220 t$(6)="und gas ! du musst  "
  257. 4221 t$(8)="noch"+a$+" leute retten"
  258. 4222 t$(7)="                    "
  259. 4225 gas=71:poke182,1
  260. 4230 return
  261. 4300 t$(2)="was willst du denn  "
  262. 4310 t$(4)="noch hier ? jetzt   "
  263. 4320 t$(6)="aber nichts wie los!"
  264. 4321 t$(8)="viel gl@ck !        "
  265. 4322 t$(7)="                    "
  266. 4330 return
  267. 6000 rem
  268. 6005 bz=27:kf=0:print"[147]":gosub3000:poke158,0:poke254,0:poke1040,4
  269. 6006 pokev+45,1:poke50174,40:pokev+29,240:pokev+46,1:poke50175,40
  270. 6007 pokev,95:pokev+2,95:pokev+4,95:pokev+16,0:pokev+1,179:pokev+3,179
  271. 6008 pokev+5,200:poke148,0:poke50170,43
  272. 6009 pokev+9,150:pokev+13,170:pokev+15,160:pokev+8,80:gosub6500
  273. 6010 ifle<>0thenrun
  274. 6015 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
  275. 6020 print"[149]l[146]                                l[146]"
  276. 6030 print"[149]l[146] unter den geretteten befand    [149]l[146]"
  277. 6040 print"[149]l[146]                                l[146]"
  278. 6050 print"[149]l[146] sich ein million]r. er schenkt [149]l[146]"
  279. 6060 print"[149]l[146]                                l[146]"
  280. 6070 print"[149]l[146] dir aus dankbarkeit eine nette [149]l[146]"
  281. 6080 print"[149]l[146]                                l[146]"
  282. 6090 print"[149]l[146] kleine s@dseeinsel.            [149]l[146]"
  283. 6100 print"[149]l[146]                                l[146]"
  284. 6105 print"[149]l[146][144] dr@cke space !                 [149]l[146]"
  285. 6106 print"[149]l[146]                                l[146]"
  286. 6110 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]":poke198,0
  287. 6120 geta$:ifa$<>" "then6120
  288. 6130 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
  289. 6140 print"[149]l[146]                                l[146]"
  290. 6150 print"[149]l[146] dort machst du dir ein sch[nes [149]l[146]"
  291. 6160 print"[149]l[146]                                l[146]"
  292. 6170 print"[149]l[146] leben und l]sst dich von den   [149]l[146]"
  293. 6180 print"[149]l[146]                                l[146]"
  294. 6190 print"[149]l[146] inselbewohnerinnen verw[hnen ! [149]l[146]"
  295. 6200 print"[149]l[146]                                l[146]"
  296. 6210 print" kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
  297. 6215 print"                                     "
  298. 6216 print"                                     "
  299. 6217 print"                                     "
  300. 6218 print"                                     ":poke198,0
  301. 6220 if(peek(56320)and16)=0then6230
  302. 6225 geta$:ifa$<>" "then6220
  303. 6230 run
  304. 6500 z=peek(1046)+peek(1047)*10+peek(1048)*60+peek(1049)*600
  305. 6501 z=1800-z:z1=int(z/60):z2=z-z1*60
  306. 6502 z1$=right$(str$(z1),2):ifz1<10thenz1$="0"+right$(str$(z1),1)
  307. 6503 z2$=right$(str$(z2),2):ifz2<10thenz2$="0"+right$(str$(z2),1)
  308. 6505 ze$=z1$+":"+z2$
  309. 6506 sc=z*10+(20-le)*1000+ba*5000
  310. 6507 sc$=right$(str$(sc),5)
  311. 6508 le$=right$(str$(20-le),2):if(20-le)<10thenle$="0"+right$(str$(20-le),1)
  312. 6509 ifle=0thenle$=le$+" (alle)"
  313. 6510 ifle<>0thenle$=le$+"       "
  314. 6511 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
  315. 6515 print"[149]l[146]                                l[146]"
  316. 6520 print"[149]l[146] deine zeit:   "ze$"            [149]l[146]"
  317. 6521 ifsc<10000thenra$="ballonf@hrer 5.kl.":goto6530
  318. 6522 ifsc<20000thenra$="ballonf@hrer 4.kl.":goto6530
  319. 6523 ifsc<30000thenra$="ballonf@hrer 3.kl.":goto6530
  320. 6524 ifsc<40000thenra$="ballonf@hrer 2.kl.":goto6530
  321. 6525 ra$="ballonf@hrer 1.kl."
  322. 6530 print"[149]l[146]                                l[146]"
  323. 6540 print"[149]l[146] gerettet:     "le$"        [149]l[146]"
  324. 6550 print"[149]l[146]                                l[146]"
  325. 6560 print"[149]l[146] deine punkte: "sc$"            [149]l[146]"
  326. 6570 print"[149]l[146]                                l[146]"
  327. 6580 print"[149]l[146] dein rang: "ra$"  [149]l[146]"
  328. 6590 print"[149]l[146]                                l[146]"
  329. 6595 print"[149]l[146][144] dr@cke space                  [149] l[146]"
  330. 6596 print"[149]l[146]                                l[146]"
  331. 6600 print" kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
  332. 6610 geta$:ifa$<>" "then6610
  333. 6620 return
  334. 8000 a=peek(v+21):pokev+21,0:poke1040,2:pokesi+24,0
  335. 8010 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
  336. 8020 print"[149]l[146]                                l[146]"
  337. 8030 print"[149]l[146] kaum zu glauben, aber du       [149]l[146]"
  338. 8040 print"[149]l[146]                                l[146]"
  339. 8050 print"[149]l[146] spielst jetzt seit 1/2 stunde. [149]l[146]"
  340. 8060 print"[149]l[146]                                l[146]"
  341. 8070 print"[149]l[146] diese unglaubliche ausdauer    [149]l[146]"
  342. 8080 print"[149]l[146]                                l[146]"
  343. 8090 print"[149]l[146] muss mit einer  zeitgutschrift [149]l[146]"
  344. 8100 print"[149]l[146]                                l[146]"
  345. 8110 print"[149]l[146] belohnt werden (dr@cke space)! [149]l[146]"
  346. 8120 print"[149]l[146]                                l[146]"
  347. 8130 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
  348. 8150 geta$:ifa$<>" "then8150
  349. 8160 poke1046,0:poke1047,0:poke1048,5:poke1049,0:poke1054,0:pokev+21,a
  350. 8170 gosub3000:pokesi+24,31:goto1320
  351. 9000 pokev+21,0:poke1040,2
  352. 9010 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
  353. 9020 print"[149]l[146]                                l[146]"
  354. 9030 print"[149]l[146] pech gehabt, was? na ja es ist [149]l[146]"
  355. 9040 print"[149]l[146]                                l[146]"
  356. 9050 print"[149]l[146] noch kein meister von himmel   [149]l[146]"
  357. 9055 if le<5 then ra$="steuermann       ":goto9060
  358. 9056 if le<10 then ra$="bodenpersonal    ":goto9060
  359. 9057 if le<15 then ra$="ballonn]her      ":goto9060
  360. 9058 ra$="gasflaschenf@ller"
  361. 9060 print"[149]l[146]                                l[146]"
  362. 9070 print"[149]l[146] gefallen (eben!).              [149]l[146]"
  363. 9080 print"[149]l[146]                                l[146]"
  364. 9090 print"[149]l[146] dein rang: "ra$"   [149]l[146]"
  365. 9100 print"[149]l[146]                                l[146]"
  366. 9110 print"[149]l[146][144] dr@cke space                   [149]l[146]"
  367. 9120 print"[149]l[146]                                l[146]"
  368. 9130 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
  369. 9140 geta$:ifa$<>" "then9140
  370. 9150 run
  371. 9999 stop
  372. 30000 a=peek(56320)
  373. 30010 if(aand1)=0thenpokev+1,peek(v+1)-1:pokev+3,peek(v+3)-1:pokev+5,peek(v+5)-1
  374. 30020 if(aand2)=0thenpokev+1,peek(v+1)+1:pokev+3,peek(v+3)+1:pokev+5,peek(v+5)+1
  375. 30030 print"";peek(v+1),bz
  376. 30040 if(aand16)=0thenbz=bz+1:gosub3000
  377. 30050 goto30000
  378. 39990 rem ----------------------------
  379. 39995 rem alle zaehler auf null setzen
  380. 39996 rem ----------------------------
  381. 40000 poke146,0:poke159,0:poke165,1:poke166,0:poke167,0:poke176,0:poke178,0
  382. 40010 poke180,0:poke192,0:poke251,1:poke252,0:poke253,0:poke1002,0:poke1004,0
  383. 40020 poke1020,0:poke1026,0:poke1027,0:poke50168,16:poke50169,17:d1=1:zu=20
  384. 40030 return
  385. 40090 rem ----------------------------
  386. 40095 rem setze start aus ruheposition
  387. 40096 rem ----------------------------
  388. 40100 poke156,cs:poke158,0:poke188,cv:poke190,cm:poke247,cu:poke248,cf
  389. 40110 poke249,cx:poke251,1:poke252,uy-2:poke155,uy:poke187,ux:poke159,ux-2
  390. 40115 poke181,ct:poke254,0:pokev+21,peek(v+21)and(255-32)
  391. 40117 ifkf=1thenreturn
  392. 40120 ifbz<>1thenreturn
  393. 40130 pokev,88:pokev+2,88:pokev+4,88:pokev+1,189:pokev+3,189:pokev+5,210
  394. 40140 pokev+16,0:return
  395. 49990 rem --------------
  396. 49995 rem sezte paramter
  397. 49996 rem --------------
  398. 50000 fora=1to27:readb:szene(a)=b:next
  399. 51000 poke53283,09:poke53282,11
  400. 51010 poke50168,16:poke50169,17:poke50170,18:poke50171,39
  401. 51015 poke50172,40:poke50173,41:poke50174,42
  402. 51020 pokev+39,1:pokev+40,6:pokev+41,15:pokev+42,9:pokev+43,15:pokev+44,7
  403. 51021 pokev+45,2:poke1038,0:poke1041,0
  404. 51025 pokev+28,0
  405. 51030 pokev+16,0:pokev+27,15:pokev+23,32:pokev+29,16
  406. 51040 poke828,2:poke829,9:poke830,6:poke831,7
  407. 51045 poke1046,1:poke1047,0:poke1048,0:poke1058,0:poke1059,5
  408. 51050 poke1043,0:poke1044,100:poke1045,0:poke1040,1
  409. 51055 poke1050,1:poke1051,1:poke1052,1:poke1053,1
  410. 51060 poke1003,5:poke1005,5:poke1023,0:poke1002,0:poke1004,0
  411. 51070 sys4096*8
  412. 51080 di$(1)="3 sands]cke     "
  413. 51090 di$(2)="5 sands]cke     "
  414. 51100 di$(3)="10 sands]cke    "
  415. 51110 di$(4)="20 einheiten gas"
  416. 51120 di$(5)="40 einheiten gas"
  417. 51130 di$(6)="1 ballon        ":poke1054,1
  418. 51150 fora=1to30:in(a)=1:next
  419. 51200 fora=0to7:readb:poke33956+a,b:next
  420. 51210 fora=58376to58455:pokea,0:next
  421. 54000 d1=1:return
  422. 55000 data 1,2,3,4,5,7,6,8,6,9,10,11,6,22,6,12,13,14,15,17,18
  423. 55010 data 19,20,16,21,23,24
  424. 55020 data 0,128,192,224,240,248,252,254
  425. 59990 rem ------------------------
  426. 59995 rem titel und vorbereitungen
  427. 59996 rem ------------------------
  428. 60000 poke1003,5:poke1005,5:poke1040,1:poke53280,0:poke53281,0
  429. 60020 poke158,0:poke254,0
  430. 60030 poke977,250:poke978,2:poke979,0
  431. 60100 print"[147]nichts als ..."
  432. 60110 fora=1to1500:next
  433. 60120 print" [149][192] [192] [192][192][192] [192] [192][192][192] [192][192][192] [192][192][192]  [192]   [192] [192] [192][192][192] [192][192][192]"
  434. 60130 print" [149][192] [192] [192]   [192] [192]   [192]   [192]    [192]   [192] [192] [192]    [192]"
  435. 60140 print" [149][192][192][192] [192][192][192] [192] [192][192][192] [192][192][192] [192][192][192]  [192]   [192] [192] [192][192][192]  [192]"
  436. 60150 print" [149][192] [192] [192]   [192]   [192]   [192] [192]    [192]   [192] [192] [192]    [192]"
  437. 60160 print" [149][192] [192] [192][192][192] [192] [192][192][192] [192][192][192] [192][192][192]  [192][192][192] [192][192][192] [192]    [192]"
  438. 60170 print"[154][211][212][213][214][215][216][216][215][214][213][212][211][211][212][213][214][215][216][216][215][214][213][212][211][211][212][213][214][215][216][216][215][214][213][212][211][211][212]"
  439. 60175 geta$:ifa$=" "then60280
  440. 60180 fora=1to1000:next
  441. 60200 print"[158]programmiert von ....... > achim m@ller"
  442. 60210 fora=1to1500:next
  443. 60215 geta$:ifa$=" "then60280
  444. 60220 print"[158]tolle ideen von ........ < walter l[rch"
  445. 60230 fora=1to1500:next
  446. 60233 geta$:ifa$=" "then60280
  447. 60235 print"[158]                         %'"
  448. 60240 print"[158]gewidmet f@r ........... & claudia"
  449. 60245 print"                          "
  450. 60246 fora=1to1000:next
  451. 60250 fora=1to1500:next
  452. 60260 x=105:y=215:t$="dr@cke space":gosub62000
  453. 60270 geta$:ifa$<>" "then60270
  454. 60280 print"[158] spielertyp: b[146] ..... schl]fer          "
  455. 60285 print"                                       "
  456. 60290 print"[158]             b[146] ..... durchschnittsb@rger";
  457. 60300 print"                                       "
  458. 60310 print"[158]             b[146] ..... hektiker          "
  459. 60315 print"                                       "
  460. 60320 print" oder:       b[146] ..... was iss los ?     "
  461. 60321 print"                                       "
  462. 60322 print"         [160][160]                            "
  463. 60324 print"[156]w]hle mit joystick oben/unten und feuer"
  464. 60330 bs=49685:la=23:hw=3:gosub62200
  465. 60342 rem ----------------------
  466. 60343 rem sezte steuerungsstufen
  467. 60344 rem ----------------------
  468. 60345 ifwa=4thengoto61000
  469. 60350 on wa gosub 60500,60600,60700
  470. 60360 poke1054,0:poke182,0:poke148,1:poke147,1:poke188,1:poke1003,20:poke1005,20
  471. 60370 ux=50:uy=50:gas=40:bz=1:poke1023,gas:sa=5:le=20
  472. 60380 return
  473. 60500 cv=5:ct=5:cf=6:cx=3:cs=4:cu=5
  474. 60510 cm=5:ba=3:wf=.7:ff=0.1:fw=3:fz=4:poke1049,4
  475. 60520 return
  476. 60600 cv=5:ct=1:cf=4:cx=2:cs=3:cu=5
  477. 60610 cm=5:ba=3:wf=.6:ff=0.2:fw=2:fz=2:poke1049,3
  478. 60620 return
  479. 60700 cv=5:ct=0:cf=3:cx=1:cs=2:cu=3
  480. 60710 cm=5:ba=4:wf=.5:ff=0.4:fw=0:fz=1:poke1049,2
  481. 60720 return
  482. 61000 print"[147]sehr geehrter spieler, wir gratulieren"
  483. 61010 print"ihnen zum kauf dieser hochwertigen"
  484. 61020 print"diskette/zeitschrift. die folgende"
  485. 61030 print"anleitung soll ihnen helfen sich mit"
  486. 61040 print"unserem produkt besser zurechtzufinden."
  487. 61042 print"f@r eventuelle joystichsch]den o.]."
  488. 61044 print"k[nnen wir keine haftung @bernehmen !"
  489. 61046 gosub63000
  490. 61050 print"um ihr vorwissen richtig einstufen zu"
  491. 61060 print"k[nnen, beantworten sie bitte folgende"
  492. 61070 print"frage:":print"was ist eine cpu ?"
  493. 61080 print"[158]  ..... coffee producing unit"
  494. 61090 print"  ..... control processing unit"
  495. 61100 print"  ..... eine partei in bayern"
  496. 61110 print"  ..... weiss nicht"
  497. 61120 print"                    "
  498. 61130 print""
  499. 61140 hw=3:bs=49632:la=35:gosub62200
  500. 61150 onwagoto61200,61250,61300,61350
  501. 61200 print"[147]?out of coffee error in 60234":fora=1to1000:next
  502. 61210 if(peek(56320)and16)<>0then61210
  503. 61220 goto61500
  504. 61250 print"[147]wie einfallslos ! sie m@ssen"
  505. 61255 print"informatiker sein. da sie sich so gut"
  506. 61260 print"auskennen, brauchen sie auch keine"
  507. 61270 print"anleitung."
  508. 61280 gosub63000
  509. 61290 goto61990
  510. 61300 print"[147]ich glaube sie verwechseln da etwas !"
  511. 61310 print"aber das macht nichts ! sie m@ssen ja"
  512. 61320 print"nicht jede partei kennen."
  513. 61330 gosub63000
  514. 61340 goto61500
  515. 61350 print"[147]sie haben eine anleitung dringend"
  516. 61360 print"n[tig !"
  517. 61370 gosub63000:goto61500
  518. 61400 rem
  519. 61450 rem
  520. 61500 print"sinn des spiels:":print"mmmmmmmmmmmmmmmm"
  521. 61510 print"versuchen sie lieber keinen zu finden !"
  522. 61520 print"ziel des spiels:":print"mmmmmmmmmmmmmmmm"
  523. 61530 print"man[vrieren sie ihren ballon heil durch"
  524. 61540 print"alle 27 bilder und wieder zur@ck."
  525. 61545 print"retten sie dabei die menschen ;, die in"
  526. 61546 print"den bildern verteilt sind. aus dank"
  527. 61547 print"erhalten sie dann gas, sands]cke oder"
  528. 61548 print"einen ersatzballon. nehmen sie sich vor"
  529. 61550 print"der eigenwilligen blitzenden wolke und"
  530. 61560 print"den flugzeugen in acht !"
  531. 61570 gosub63000
  532. 61580 print"steuerung:":print"mmmmmmmmm"
  533. 61590 print"der ballon l]sst sich nur durch"
  534. 61600 print"bet]tigen des gasbrenners (tr]ge) und"
  535. 61610 print"abwurf von sands]cken (schneller)"
  536. 61620 print"steuern. die bewegung in x-richtung"
  537. 61630 print"h]ngt von der windrichtung ab, die"
  538. 61640 print"man sich zu jeder zeit anzeigen lassen"
  539. 61645 print"kann. im letzten bild erh]lt man einen"
  540. 61646 print"motor, der auch die steuerung nach"
  541. 61647 print"links bzw. rechts erm[glicht."
  542. 61649 gosub63000
  543. 61650 print"joystickbelegung:":print"mmmmmmmmmmmmmmmm"
  544. 61655 print"feuerknopf  = feuern"
  545. 61660 print"oben        = wind anzeigen (=pause)"
  546. 61670 print"unten       = sandsack abwerfen"
  547. 61675 print"nur mit motor:"
  548. 61680 print"links       = bewegung links"
  549. 61690 print"rechts      = bewegung rechts"
  550. 61695 gosub 63000
  551. 61700 print"taktiktip:":print"mmmmmmmmm"
  552. 61710 print"sammeln sie auf dem hinweg nur die"
  553. 61720 print"menschen auf, die sie leicht erreichen"
  554. 61730 print"k[nnen bzw. wenn sie wieder nachschub"
  555. 61740 print"(gas oder sands]cke) brauchen !"
  556. 61750 print"denn auf dem r@ckweg haben sie ja den"
  557. 61760 print"motor (f@r den sie auch gas brauchen)."
  558. 61765 print"die punkte errechnen sich @brigens aus"
  559. 61766 print"der ben[tigten zeit, den geretteten"
  560. 61767 print"menschen und den restlichen ballons."
  561. 61770 gosub63000
  562. 61990 poke198,1:poke631,32:goto60000
  563. 62000 pokev+1,y:pokev+3,y:pokev+5,y+21
  564. 62010 fora=1to40:t(a)=32:next
  565. 62020 fora=1tolen(t$):t(a)=asc(mid$(t$,a,1)):ift(a)>63thent(a)=t(a)-64
  566. 62030 next:b=1:pokev+21,7
  567. 62040 fora=30tox
  568. 62050 pokev,a:pokev+2,a:pokev+4,a:next
  569. 62060 fora=x+1tox+len(t$)*8
  570. 62070 pokev,a:pokev+2,a:pokev+4,a
  571. 62080 ifa/8=int(a/8)thenpokefna(v),t(b):b=b+1
  572. 62090 next
  573. 62095 fora=x+len(t$)*8+1to255
  574. 62096 pokev,a:pokev+2,a:pokev+4,a:next
  575. 62100 pokev+16,7
  576. 62110 fora=0to100
  577. 62120 pokev,a:pokev+2,a:pokev+4,a
  578. 62130 next
  579. 62140 pokev+16,0:pokev,0:pokev+2,0:pokev+4,0:return
  580. 62200 ifd1=0then62350
  581. 62202 a=0:poke1003,20:goto62235
  582. 62205 b=peek(56320):ifb=127then62205
  583. 62210 if(band1)=0thenaa=a:a=a-1:ifa<0thena=hw
  584. 62220 if(band2)=0thenaa=a:a=a+1:ifa>hwthena=0
  585. 62230 if(band16)=0then62320
  586. 62235 ifbs<>49685then62310
  587. 62240 ona+1goto62250,62260,62270,62280
  588. 62250 poke1003,30:goto62300
  589. 62260 poke1003,10:goto62300
  590. 62270 poke1003,01:goto62300
  591. 62280 poke1003,50:goto62300
  592. 62300 poke1002,0
  593. 62310 pokebs+80*aa,32:pokebs+80*a,60:forc=1to100:next:goto62205
  594. 62320 wa=a+1:return
  595. 62350 if(peek(56320)and16)<>0then62350
  596. 62360 return
  597. 63000 print"dr@cke feuerknopf ![145]"
  598. 63010 if(peek(56320)and16)<>0then63010
  599. 63020 return
  600.